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SQL> cl scr 



SQL> DECLARE 

2 TYPE Dept_Table_Type — Declaration of The PL/SQL Table Datatype 

3 IS TABLE OF 

4 Dept . Dname%TYPE — Data Column of The PL/SQL Table 

5 INDEX BY BINARY_INTEGER; 

6 My_Dept_Table Dept_Table_Type; --Instance Creation of The 
Table 

7 V_Count NUMBER (2); 

8 BEGIN 



9 




SELECT COUNT (*) I' 


10 




FROM Dept; 


11 




FOR 


Mylndex IN 1 


12 






SELECT Dname 


13 






INTO My_Dept. 


14 






FROM Dept 


15 






WHERE Deptno 


16 




END 


LOOP; 


17 




FOR 


MYIndex IN 


18 




DBMS_0UTPUT . PUT 


19 




END 


LOOP; 


20 


END; 






21 


/ 







(mm 



ACCOUNTING 
RESEARCH 
SALES 

OPERATIONS 

PL/SQL procedure success 
SQL> ED 

Wrote file afiedt. 

1 DECLARE . . If t 

2 TYPE Mp|^ime_Type 

3 IS TABaroa ' 

4 Dept%R0WWffE 

5 ^IfS^BY BINARY_INTEGER; 

6 able Dept_Table_Type; 

7 fv C&unt NUMBER (2); 

C ffeELECT COUNT (*) INTO V_Count 
(J 4 FROM Dept; 




1 . .V Count 



( 1 1*1 FOR Mylndex IN 1 . ,V_Count 

& 1 2 LOOP 



13 

14 



SELECT * INTO My_Dept_Table (Mylndex) 
FROM Dept 
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15 WHERE Deptno = My Index * 10; 

16 END LOOP; 

17 FOR My Index IN l..V_Count 

18 LOOP 

19 DBMS_OUTPUT . PUT_LINE ( ' Dept . 'll My_Dept_Table (Mylndex) . Deptno 

20 | | My_Dept_T able (Mylndex) .Dnamel | ' is Located in ' | | 

My _Dept_Table (Mylndex) . Loc) ; 

21 END LOOP; 

22* END; 

SQL> / 

Dept. 10 ACCOUNTING is Located in NEW YORK 
Dept . 20 RESEARCH is Located in DALLAS 4 

Dept. 30 SALES is Located in CHICAGO 
Dept. 40 OPERATIONS is Located in BOSTON 

PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 



-Type 



DECLARE 

TYPE Dept_Table. 

IS TABLE OF 
Dept%ROWTYPE 
INDEX BY BINARY_INTEGER; 
My_Dept_Table Dept_Table. 
V_Count NUMBER (2) ; ♦ 

BEGIN 

SELECT COUNT (*) IN' 

FROM Dept; _ 

FOR Mylndex IN J. 

LOOP 

SELECT 
Deptno, a 
Dname, . +, 

Loc /ATM, 

INTO 

My JDept^tlable (Mylndex) . Deptno 
^YO^Rt Table (Mylndex) .Dname, 

„-t 










, Loc 



t_Table (Mylndex) 

FROM Dept 

WHERE Deptno = Mylndex * 



o 



23 END LOOP; 

- * FOR 



CIs 

26 
27 



Mylndex IN 1. ,V_Count 

LOOP 

DBMS_OUTPUT . PUT_LINE ( ' Dept . ' | | 

I I My_Dept_Table (Mylndex) .Dnamel | 



10 ; 



My_Dept_T able (Mylndex) .Deptno 
' is Located in ' | | 



I I 



My _Dept_Table (Mylndex) .Loc) 
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28 END LOOP; 

29* END; 

SQL> / 

Dept. 10 ACCOUNTING is Located in NEW YORK 
Dept. 20 RESEARCH is Located in DALLAS 
Dept. 30 SALES is Located in CHICAGO 
Dept. 40 OPERATIONS is Located in BOSTON 

PL/SQL procedure successfully completed. 

SQL> cl scr 

SQL> SELECT * FROM Emp; 





EMP NO 


ENAME 


JOB 


COMM 


DEPTNO 






7839 


KING 


PRESIDENT 


10 


7698 


BLAKE 


MANAGER 


30 


7782 


CLARK 


MANAGER 


10 


7566 


JONES 


MANAGER 


20 


7654 


MARTIN 


SALESMAN | 


1400 




30 






7499 


ALLEN 


SALEMiaI^ 


300 




30 






7844 


TURNER 





MGR HI RED A' 






5* 



jr 

ft 



& 



\W 

78^»iJV^AY-81 






XL 



0 

30 

500 

20 



O' 



20 

C 7 I 



30 y 

7900 JAMES V 

7521 WAR^ \ 

7 902 ^ 

SMITH 






%e SCOTT 
7876 ADAMS 
7934 MILLER 



RK 

SALESMAN 

ANALYST 

CLERK 

ANALYST 

CLERK 

CLERK 



— JUN-81 
7839 02-APR-8 1 
7698 28-SEP-81 
7698 2 O-FEB-8 1 
7698 08-SEP-81 
7698 03-DEC-81 
7698 2 2-FEB-8 1 
7566 03-DEC-81 
7902 17-DEC-80 
7566 09-DEC-82 
7788 12- JAN-83 
7782 23-JAN-82 



5000 

2850 

2450 

2975 

1250 

1600 

1500 

950 

1250 

3000 

800 

3000 

1100 

1300 



14 rows selected. 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



SQL> ED 
Wrote file 



af iedt . buf 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 



DECLARE 

TYPE Emp_Table_Type 
IS TABLE OF 
Emp%ROWTYPE 

INDEX BY BINARY_INTEGER; 

My_Emp_Table Emp_Table_Type; 

V_RowID NUMBER (2) := 65; 

V_EmpCount NUMBER (2); 

BEGIN 

SELECT COUNT (*) INTO V_EmpCount 
FROM Emp; 

FOR Mylndex IN 1 . . V_EmpCount 
LOOP 

SELECT * INTO My_Emp_Table (Mylndex) ^ 

FROM Emp + + tA. 

WHERE SUBSTR (ROWID, 18, 1) = CHR (V_Rc^Fjlt3l^/t tT £ 

V_RowID := V_RowID + 1 
END LOOP ; 

DBMS_OUTPUT . PUT_LINE (RPAD ( 'Empiyf^ps "information 
DBMS_OUTPUT . PUT_LINE (RPAD ( , 8 0/\' ) ) ; 

DBMS_OUTPUT . PUT_LINE (RPAD ( ' , 8) | | RPAD ( ' Ename 

■ - T r- , 




V 



LINE (RPAD ( ' Employes "ft if 



80) ) 



12) | |RPAD ( ' Job' , 12) | | RPAD ( 'Dep ) | | RPAD ( ' Mgi 

10)| | RPAD ( 'Hiredate' , 12) | | Rt^Dj^JteT' , 1 2 ) | | RPAD ( ' Comm ' , 10) ) ; 

22 DBMS OUTPUT .PUT LTNEA RP^rt -y -*T. 8 0,'-')); 

23 FOR Mylndex IN 1 Iflf^E^^unt LOOP 

2 4 DBMS_OUTPUT.PUT_LINlQlpHp (My_Emp_Table (Mylndex) .Empno, 8) 

| | RPAD (My_Emp_Table (My^^e^^ Ename, 1 2 ) | | RPAD (My_Emp_Table (Mylndex) . Job, 
12) | | RPAD (My Emp Table (s jy j fridex) . Deptno, 

8) | | NVL (TO_CHAR (RPA®r$t}|jSmp_Table (Mylndex) .MGR, 10) ) , 'No 
Manager ' ) | | RPAD (My_Emp^yrable (Mylndex) . Hiredate, 

12 ) | | RPAD (My Egjyo^table (Mylndex) . Sal , 

12)11 NVL (TQ4_S’I$rTwAD ( My_Emp_T able (Mylndex) . Comm, 12) ) , ' -NA- ' ) ) ; 

2 5 END LCX^Tl 4 

26 DBMSOUTFOT . PUT_LINE (My_Emp_Table . COUNT | | ' Rows Selected. ' ) ; 

27* 

SQL> 

Empllyee^ Information 




Ename 



Job 



Deptno Mgr 



Hiredate 



Sal 
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7839 
-NA- 
7698 
-NA- 
7782 
-NA- 
7566 
-NA- 
7654 
1400 
7499 
300 
7844 
0 

7900 
-NA- 
7521 
500 
7902 
-NA- 
7369 
-NA- 
7788 
-NA- 
7876 
-NA- 
7934 
-NA- 

14 Rows Selected. 



KING 

BLAKE 

CLARK 

JONES 

MARTIN 

ALLEN 

TURNER 

JAMES 

WARD 

FORD 

SMITH 

SCOTT 

ADAMS 

MILLER 



PL/SQL procedure sue 
SQL> SELECT ROWID, 



PRESIDENT 
MANAGER 
MANAGER 
MANAGER 
SALESMAN 
SALESMAN 
SALESMAN 
CLERK 
SALESMAN 
ANALYST 
CLERK 
ANALYST 
CLERK 
CLERK ♦ 



10 

30 

10 

20 

30 

30 

30 

30 

30 

20 

20 

20 



No Managerl7-NOV-81 



7839 
7839 
7839 
7698 
7698 
7698 
7698 
7698 
7 



01— MAY— 81 
09-JUN-81 

02 - APR- 81 
28-SEP-81 
20-FEB- 
08-SEP 
U3-DEC-81 



5000 

2850 

2450 

297 



\si Jt 



5 $%b ? 3 

%s 

'm. 



^7 




ROWID 

SAL 





7788 

7782 



EB-81 
-DEC-81 
17-DEC-80 
09-DEC-82 
12- JAN- 83 
2 3- JAN-8 2 



8ji ! ‘ 

500 
950 
1250 
3000 
800 
3000 
1100 
1300 



0 



ompleted. 
ROM Emp El; 



EMPNO ENAME 
DEPTNO 



JOB 



-%*?- 

A A AO A AH F A A A 

5000 

AAAofmAAhAAAAHFAAB 
1AAAAHFAAC 






MGR HIREDATE 




mo Gm AAE A AAAH F AAD 
! 975 

AAAOGmAAE AAAAHF AAE 
1250 1400 



7839 KING 
10 

7698 BLAKE 
30 

7782 CLARK 
10 

7566 JONES 
20 

7654 MARTIN 
30 



PRESIDENT 

MANAGER 

MANAGER 

MANAGER 

SALESMAN 



17 -NOV- 81 
7839 01 -MAY- 81 
7839 09-JUN-81 
7839 02 -APR- 81 
7698 28-SEP-81 
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7499 ALLEN 
30 

7844 TURNER 
30 

7900 JAMES 
30 

7521 WARD 
30 

7902 FORD 
20 

7369 SMITH 

20 

7788 SCOTT 
20 

7876 ADAMS 
20 

7934 MILLER 
10 



AAAOGmAAE AAAAHF AAF 
1600 300 

AA AO GmAAEAAAAH FAAG 
1500 0 

AA AO GmAAEAAAAH FAAH 
950 

AA AO GmAAEAAAAH F AA I 
1250 500 

AAAOGmAAE AAAAHFAAJ 
3000 

AA AO GmAAEAAAAH FAAK 
800 

AA AO GmAAEAAAAH F AAL 
3000 

AA AO GmAAEAAAAH FA AM 
1100 

AAAOGmAAE AAAAHFAAN 
1300 

14 rows selected. 

SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 TYPE Dept_Table_Type« 

3 IS TABLE OF 

4 Dept . Dname%TYPE 

5 INDEX BY BINARY 

6 My_Dept_Table^ ^pt fcy >le Type; 

7 V_Count NUMBE%gyt± 

8 V_RecNo NUMBER ( = &EnterRecordNumber ; 

9 BEGIN ^ \ 

10 SELEcV?|m^% ) INTO V_Count 

11 FROM De$t7l 4 

12 FOR JHylnafe IN 1 . . V_Count 

13 «(|/ 

14 Dname INTO My_Dept_Table (Mylndex) 

15 tFRok Dept 

J^V^HiERE Deptno = Mylndex * 10; 
lfjfeND LOOP; 





O 



i i 4 9 loop 



FOR MYIndex IN 1 . .V Count 



20 DBMS_OUTPUT . PUT_LINE ( ' The Department Number, ' | | Mylndex* 1 0 | is 

named as : ' | I My_Dept_Table (Mylndex) ) ; 

21 END LOOP; 
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22 DBMS_OUTPUT . PUT_LINE ( ' The PLSQL Table Contains 
I I My_Dept_Table . COUNT | | ' Records . ' ) ; 

23 DBMS_OUTPUT . PUT_LINE ( ' The First Index Number of PLSQL Table is 
I I My_Dept_Table . FIRST | | ' and the First Record is : 

I |My_Dept_Table (My_Dept_T able. FIRST) ) ; 

24 DBMS_OUTPUT . PUT_LINE ( ' The Last Index Number of PLSQL Table is 
I I My_Dept_Table . LAST | | ' and the Last Record is : 

I I My_Dept_Table (My_Dept_T able . LAST) ) ; 

25 DBMS_OUTPUT . PUT_LINE ( ' The Previous Record of 
I I My_Dept_Table . LAST | | ' th Record of PLSQL Table is 
I I My_Dept_T able .PRIOR (My _Dept_Table . LAST) | | ' and the Dat 
| I My_Dept_Table (My_Dept_T able. PRIOR (My_Dept_T able. LAST )| . 

26 DBMS_OUTPUT . PUT_LINE ( ' The Next Record of ' I I My_Dept%'ab^f FIRST | | 
Record of PLSQL Table is ’ | I My_Dept_T able .NEXT (My_De]»t_TaS ^. F IRST) | | ’ 












‘0 



hr 



I 



st 



and the Data is : . | + + + 

' I I My_Dept_Table (My_Dept_T able . NEXT (My Dept Table \[jj5T% ) ; 

4V 



IF My_Dept_ 



27 

28 DBMS_OUTPUT . PUT_LINE ( 

29 DBMS_OUTPUT . PUT_LINE ( 
1 | | My_Dept_Table (V_RecNo) ) 

30 ELSE 

31 DBMS_OUTPUT . PUT_LINE ( 



Table .EXISTS (V_RecNo) THEN 

The Department Exisi 
The Department Ntoml 



Sorry ! 




\ 



jp quested Data does not 



,, 




+ls r 'tpamed as 
St named as 
Records . 
PLSQL Table 



ACCOUNTING 
RESEARCH 
SALES 

OPERATIONS 
is 1 and the First Record is 



Exist. . .Check the Record Range. 

32 END IF; 

33* END; 

SQL> / 

Enter value for enter recordntipb^jfft. 'S' 

The Department Number, 10 as 

The Department Number, 20 B^rrred as 
The Department Number, 3 ^ - 

The Department Number,, 

The PLSQL Table Coi^fainj 
The First Index Nun 
ACCOUNTING a 

The Last Index^Mcber of PLSQL Table is 4 and the Last Record is : 
OPERATIONS 

The Previou^Celor' of 4th Record of PLSQL Table is 3 and the Data is 
SALES V 

Ftextd jtecord of 1st Record of PLSQL Table is 2 and the Data is : 

|epaBtment Exists 

frtment Name is, SALES 

procedure successfully completed. 

SPOOL OFF 
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